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SERRA A AAA AAEAAEA AERA AAAAAAEAAAAAAAARAAREAAEEEAAAEREHERETERERAAEAEAAAEEe 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY if eee WITH THE TERMS OF SUCH biCeNse AND WITH THE 


N oric OFT R 
Suen PERtOn” MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


® 
® 
& 
® 
® 
a 
& 
e 
® 
a 
TRANSFERRED. ’ 
w 
* 
* 
® 
* 
* 
* 
& 
® 
* 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT ION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS ott 


I Y FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


T 
NOT SUPPLIED BY DIGITAL. 


@eneeneeneneeeeaeeeeananane 
oO 
-_ 
m 
oO 
=z 
. 
z 
oO 
“4 
a 
~ 
aad 
m 
“~ 
oO 
oo 
oO 4 
= 
=z 
m 
z 
wn 
= 
- 
vw 
oO 
~ 
-~ 
=x 
m 
wm 
oO 
wn 
~ 
<£ 
> 
Zz 
mm 
— 
nn 
= 
Mm 
@ 
Mm 
wo 
am 


—MPARARARARAAAARAAAALALALALLLE LEASE AS SALES ESSE EER RE ERR EERE EEE CERES EE REESE REESE ES 


++ 
FACILITY: STANDALONE CONFIGURE 


ABSTRACT: 
THIS ROUTINE IS _THE MAIN PROGRAM AND SUBROUTINES FOR STANDALONE 
CONFIGURE FOR STANDALONE VMS (J.£. STANDALONE BACKUP AND STANDALONE 


BAD). 
THIS PROCESS IS USED TO CONFIGURE ALL DISK AND PORT DRIVERS FROM 
SYSINIT. ALL MSCP- AND HSC-SERVED DEVICES ARE CONFIGURED. 


ENVIRONMENT: USER, EXEC, AND KERNEL MODE 


AUTHOR: MARYANN HINDEN CREATION DATE: 18-SEP-1979 
(ADAPTED FROM STASYSGEN) 


MODIFIED BY: 


v03-006 CWH3006 CW Hobbs 8-0c t-1983 : 
Properly handle the case of a null device type when displaying 
configured devices. Call them ‘unknown’. 


v03-005 CWH3005 CW Hobbs 24-Sep-1983 
Add the display of configured devices so that a user has 
a better idea of what is happening. 


V03-004 CWH3004 CW Hobbs 13-Sep-1983 
Borrow STACONFIG.MAR and produce a process suitable for 
configuring HSC and MSCP-served devices in the environment 
of standalone VMS. 
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BOOTS.SR ¢§s 
38 i vO3-002 wnco003 Wayne Cardoza 09-Aug-1983 
6 : : Put D devices beck sf. ee 
v03-001 wMc0002 Spee Cardoza 05-Aug-1983 


e§ Add \brSoutput_h 
65 to deal with noncontigous drivers. 


v03-001 wMC0001 ayne Cardoza O01-A 
Add BOOSEXEOPEN, BO 


és 
0 


Baer 
ANDCONF .MAR; 1 


vesees 
OSFILCLOSE, BOOSUFOOPEN, EXESLOAD_CODE 
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Disable autoconf igure of D devices until this module is made 
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DECLARATIONS te 


BOOSGL_CMDOPT:: .LONG 0 


CRESTOR SUSESAB WSIS desc tot 


«SBTTL DECLARATIONS 


3 INCLUDE FILES: 


Sddbdef 


Sucbdef 


MACROS: 
emacro table_entry entry_name 
table_counter = table _counter + 1 
assume dt$_‘entry_name’ —Q table_counter 
stacfn_tbidat 


-psect exe,rd,nowrt 
td_‘entry_name*: eascic /entry_name/ 
-pSect stacfn_tblptr exe,rd,nowrt 


address td_‘entry_name' 
-endm 


EQUATED SYMBOLS: 


OWN STORAGE : 


-PSECT BOOSSYSGEN,WRT 
; Options longword 


epsect stacfn_data_rw noexe,rd,wrt 

msgdsc: . lon 0,0 

msgbuf : -blkb «80 

ucb_vector: eblkl 1024 3; Remember 1000 ucb's 

ucb_end: 3; Marker for end of vector table 
epsect stacfn_data_ro exe,rd,nowrt 

BIN_TIME: ~-LONG =-10*1000*1000*5,-1 ; Delta for 5 seconds 
procnam:.ascid ‘‘STANDCONF”’ 


ctrstr: .ascid 


unknown: .ascic 


“Configured !17<!ACS$!AC!UL:!>device type !AC" 


“is not recognized” 


table_counter = 


0 
spsect stacfn_tbiptr 


exe,rd,nowrt 


BOOTS. SRCJSTANDCONF .MAR; 1 
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Woe 000" DECLARATIONS rae et Fi 9008338 {Boots sre STANDCONF .MAR; 1 - (2) 
disk_table: 
| 0000001A" 6 ; “long disk count 
4 4 table_entry RK 
8 5 table_entry RK 
f § table_entry RPOS 
1 table_entry RPOS 
14 3 table_entry RP 
18 table_entry R 
if 0 table_entry 
1 table_entry RPO7HT 
4 § table_entry 
0028 table_entry RUBS 
002C 4 table_entry RX 
0030 5 table_entry RX04 
0034 $ table_entry RMB 
88 8 table_entry Tus 
03¢ 8 table_entry RMOS 
0040 table_entry Rx01 
0044 table_entry ML11 
0048 table_entry RBO2 
004¢ table_entry RB80 
0050 table_entry RA80 
0054 table_entry RA81 
0058 table_entry RA6O 
005C table_entry RC25 
0060 table_entry RCF25 
0064 table_entry 51 
0068 entry Rx50 


Q000001A 006C 


006C 
00000000 006C table_counter = 0 


a at a ss 4 3 os 5 — 9 9 — 4 4 5 ss os es ts 2s sg —s — 2 ts ss 1b 2s 2 a a 2 a a a ss a 
PDAAAAAA AMMA EB BS WINWOOD 


NOUS WR O OO NAUES WN 0 ODNAOUS WN 0O0 


0000006C -psect stacfn_tblptr exe,rd,nowrt 
006C tape_table: 
00000009° 006C -long tape_count 
0070 table_entry TE16 
0074 table_entry TU45 
0078 table_entry Tu77 
007¢ table_entry TS11 
0080 table_entry Tu78 
0084 table_entry TA78 
0088 table_entry tus 
008C table_entry TU81 
0090 table_entry TA81 
00000009 oot tape_count = fable_counter 
00000000 spsect stacfn_code exe,rd,nowrt 


————_—-—_-------————- ——_— 
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v04-000 STANDCONF = main program ramet 90:88:46 YBOOTS: SRCISTANDCONF MAR: 1 _— 3) 
168 ; «SBTTL STANDCONF = main program 
171 : FUNCTIONAL DESCRIPTION: 
172 ; This ig the main program for standalone CONFIGURE. It does the 
09 Ve : following: 
0 175 ; 1) Locks the entire image into the working set. 
44 176 s 2) Call BOOSCONFIGURE, which will configure all MSCP- 
99 V7 ; and HSC-served devices. 
009 173 3 CALLING SEQUENCE: 
0000 i ; Called by STASYSGEN (as SYSINIT) (via the SCREPRC directive) 
0000 1 : > INPUT PARAMETERS: 
0000 184; 
0000 : i 3 NONE 
000 187 ; OUTPUT PARAMETERS: 
0000 188; 
0000 190; ome: 
9000 191 : ERROR INDICATIONS: 
0000 198 ; Various errors printed on the system console 
000 194; 
9000 198° 
000c 0000 197 ENTRY STANDCONF ,“M<R2,R3> 
0003 199 
000 00 : Load the entire image into the working set. If running from the console device 
00 01 ; can not do any paging from the image, since the piece of media we loaded from migh 
+ 8 3; not be in the drive. 
000 04 ‘ SLKWSET_S INADR=BO0SGQ_LIMITS, RETADR=B00$GQ_RETADR 
017 06 ; 
017 09 ; Change our process name to "’STANDCONF’’, SYSINIT (stasysgen) creates us with the 
017 3 3 process name of ‘STANDLOAD’’. When SYSINIT sees our name change, it knows that we 
Bie H ; have been loaded and that it is OK to request a new piece of console media. 
a9 i : SSETPRN_S PRCNAM=PROCNAM 
4 13 ; 
0 2 I ; Get current values for local copy of SYSPARAM 
00000000'EF 00 FB 6 4 16 : CALLS #0,BOOSUSEACT 
8 18 ; 
0 ; 19 3 Set a timer for 5 seconds 
5 Bs SSETIMR_S efn = = -#3,- 
B § daytim = BIN_TIME,- 
; Z astadr = AST_REC 
5 


Kk 7 
vounb00™” STANDEONF Sain program cone CONFIGURE 1p Seen] oBe 29:00:10 EBooresseeistanpconr.mar:1 "29° (8) 
r § : Start threads which will configure MSCP- and HSC-served disks. 
00000000'EF 00 FB is 8 . CALLS #0,BOOSCONF IGURE 


049 3 
984 H ; BOOSCONFIGURE will go into a hibernate state, so we should never get here 
049 > RET 


eee oe 
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STANDCONF = main program 46-SEP-1984 25:06:1 BOOTS. SRCJSTANDCONF .MAR; 1 (4) 


0004 nea 5 AST_REC: «WORD “M<R2> 
Bee $ ; Go to kernel mode and print any devices configured from remote systems 
04¢ § Scmkrnl_s routin=show_devices 
058 40 
058 41; 
058 g 3; Reset the timer ast 
056 43; 
058 44 SSETIMR_S efn = #3,- ; Reset timer 
058 45 daytim = BIN_TIME,- 
058 rf astadr = AST_REC 
O6F 4 
04 006F 48 RET 3; Dismiss AST 
0070 49 
0070 50 ; 
On 8 2) 3; Scan the io database and print names of devices served from remote systems 
OFFC B08 238 sentry SHOW DEVICES, “M<R2,R3,R4,R5,R6,R7,R8,RI,RIO,R11> 
th 255 1$: setipl #ipl$_scs 3; Block SCS interrupts while scannin 
5B 00000000°GF 7E 007 56 movaq g*scs$gq_config,r11 ; Keep a pointer to the sb queue header 
5A O0000000'GF 9E pers 57 movab g*scs$ga_localsb.r10 ; Keep a pointer to the local s 
59 6B 00 008 58 mov ri1),°9 ; Get a pointer to the first sb in the queue 
58 59 01 0086 59 10$: cmpl r9,rii ; Are we back at the sb queue header 
2—E 13 0089 60 beql 60$ : Exit when done with sb‘s 
5A 59 D1 0088 61 cmpl r9,r10 : Is it our system? 
24 13 OO8E 506 beql o$ : Yes, we aren't interested 
58 44 A9 9E 0090 26 movab sb$t_nodename(r9),r8 : Now r8 points to the nodename 
57 54 A9 DO 0094 264 mov l sb$l_ddb(r9),r7 ; Get the ointer to the first ddb on the sb 
1A 13 0098 265 20S: beql 0$ : Done ¥ th ddb’s, move to next sb 
56 14 A7 YE QO9A 266 movab ddb$t_name(r7),r6 : Now r6 points to ‘DBA’ or sensthing simila. 
55 04 A7 00 009 267 mov l ddb$l_ucb(r7),r'5 ; Make r5 point to the first ucb on the ddb 
0B 13 OOA 268 30$: beql 40$ ; Done with ucb’s, move to next ddb 
17 10 QOA4 $85 bsbb display_ucb ; Display one ucb 
C9 50 E€8 O0A6 70 blbs rd, : If we did display, start over 
55 30 Ae oY we 4 pers ucb$l_Link(r5),r5 3; Move to the next ucb 
r 
57 67 = 00s: OOAF 48 40$: movi ddbSl_link(r7),r7 ; Move to the next ddb 
E4 11 398¢ 74 brb $ 
59 69 «600 00B4) = 275-508: movi sb$l_flink(r9),r9 ; Move to the next sb 
CD 11 0087 6 brb 10$ ” 
089 77 60$: setipl #0 3; Restore interrupts 
04 O0BC 4 ret 
et 
08D ei ; Display one ucb, first we check the ucb vector to see if this ucb address is 
D § ; in the vector. If so, then we have already displayed this device. If not, 
. i 3; then put the ucb into the vector so that we won't display it again. 
D 5 display_ucb: 
50 OQO000005S8°EF DE 0 § moval ucb_vector,r0 ; Point rO at the vector 
51 0000105 "ff oF C4 moval ucb_end.r 
51 0 oO cB : 1$: capl r0,f1 ; At the end? 
ss 86 l 09 0 = oe fi} ee 
cmp r0).r ; Already displaye ? 
09 13 00D 91 beql 3$ : Ignore it 
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v04-000 STANDCONF = main program rat 7 9008378 teoors: sre STANDCONF .MAR; 1 . (4) 
Dd D 3 tstl (r0) 3; Have we found an e slot? 
G8 1 D 9 beql 5$ : Yes, then we must or ine this one 
50 LS. 09 94 addl2 #4,r0 3; Move to the next ucb entry 
| ae dC 95 brb 
50 34 43 39 3$: clrl r0 ; Let them know we did not print 
05 3 3 rsb 
4 $3 ; Haven't displayed it yet. 
60 55 34 0E1 1 5s: movl r5,(r0) : Record this ucb as printed 
54 40A5 9 OES § movb ucb$b_devclass(r5),r4 : Grab the device class 
54 ot 91 O0E8 cmpb #dc$_disk,r4 3; Is it a disk? 
9 12 QOEB 4 bneq 1 :; Not a gies skip to check next 
50 O0000000°EF DE O0ED 305 moval disk_table,r0 ; Make r0 point at the disk table 
0 11 OOF4 06 brb 20$ 
54 0 91 O0F6 07 10S: cmpb #dc$_tape,r4 : Is it a tape? 
E 12 O0F9 08 bneq 3$ 3; We only do tapes and disks 
50 OOO0006C°EF ODE sth 09 moval tape_table,r0. ; Make rQ point at the tape table 
54 41A5 9A 010 10 208: movzbl ye $B_devtypeirS) ,r4 ; Now get the device class 
0B 13 0106 11 beql 0$ : Null type? Call it unknown. 
60 54 D1 0108 \¢ cmpl r4,(r0) 3 Check against number of entries in table 
06 14 0108 H bgtr : Too big? Call it unknown. 
53 6044 D0 010D 14 movl (r0)Cr4),°3 ; Get the pointer to the name 
07 11 «+0111 $12 brb 40$ 
53 Q000004D°EF 9E 0113 16 30$: movab = unknown,r3 ; Print the unknown device 
54 54 A5 3C OIA 317 408: movzwl ucb$w_unit(r5),r4 ; Grab the unit number 
QOO00000'EF 50 BF 9A OIE 318 movzbl #80,msgdsc ; Set the full Length of the buffer 
00000004"EF  QO000008"EF 9E B1¢o 319 movab msgbuf,msgdsc+4 : Move address to the descriptor 
0131 320 $fao_s ctrstr=ctrstr,outlen=msgdsc ,outbuf=msgdsc ,pl=r8,p2=r6,p5=r4,p4=r5 
0152 = 321 setipl #0 ; Enable interrupts while printing 
0155 322 $Sbrdcst_s sogbutanngder ; Tell them about it | 
50 01 00 0168 323 mov L #1.¢r ; Let them know we printed 
05 0168 324 rsb 
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Dummy entry point 4-SEP-19 


0000 


00000175 


Ooo 


i = = = — 2 —) —) 4s 9 2s 2 ss ss 
SNES NOAA AOAAOOOonm 
ONS SB PW SB BIOMOAOOOOOOMOOOOE 
SUP BB BS BS WAI IIronopnon) 


plow lo lo lo lo lelelolelelelelelololelelolololololeolalal a! 


WAWWAAAAWNANWWW 


BOOTS .SRCJSTANDCONF .MAR; 1 (5) 


R1IO$GW -OUTLEN: : 
RIOSAB_BUF FER: 
“BLKB 


~ END STANDCONF 


int 
§ «SBTTL Dummy entry points 
: : These entry points are need to resolve references to routines 
9: ; not Linked with the standalone version of CONFIG. 
é EXESLOAD CODE: 
4 LBRSOUTPOT HELP: 
5 LIBSPUT_OUTPUT 
6 LIBSGET_INPUT 
7 eWORD 0 3; ENTRY MASK 
8 CLRL RO 
8 
1 eoeeeare te, 
¢ BOOSREADF ILE: 
BOOSF ILCLOSE 
4 BOOSUFOOPEN: : 
5 BOOSEXEOPEN:: 
6 RIOSOUTPUT_LINE:: 
7 PUTERROR:: 
8 CLRL RO 
9 RSB 
0 
cf 
4 
5 


-——_ ----- -- 
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Symbol table 
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$$T2 

AST_REC 
BIN_TIME 
BOOSCONF IGurE 
BOOSE XEOPEN 
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eeeneeee x 
eeeeneee Xx 
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U81 
LOAD_CODE 


OuTPUT_HELP 
GET_INPUT 
SFUT_OUTPUT 


STAND CONF 
SYSS$BRDCST 
SYSSCMKRNL 
SYSSFAO 
SYSSLKWSET 


TAPE_COUNT 
TAPE TABLE 
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4-SEP-19 
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3: 
6: 
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eeeeeeee 
eeeenene 
00000070 
00000000 
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Symbol table 4-SEP-1984 25:06:10 CBOOTS.SRCJSTANDCONF .MAR; 1 (5) 
TO_TE16 0000085 R 6 
TD-T$11 09909 S2 R 6 
TD_TU4S OO0008A R 6 
TO_TUS 00000043 R 6 
TO_Tu? 4 8F R 06 
TD_TU78 0000099 R 06 
10 tUey QO0000A3 R 06 
TuU81 OOOCOOAB R 06 

UCBSB =PEVELASS = 00000040 
UCBSB_DEVTYP = 00000041 
UCBSL_LINK = 00000030 
UCBSW_UNI = St 
UCB_END 0001058 R 03 
UCB_VECTOR 00000058 R 03 
UNKNOWN 0000004D R 04 

Benen anna reer mam + 

: Psect synopsis ! 

feeececccececcoca + 
PSECT name Allocation PSECT No. Attributes 
» O06 « 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

$ 00000000 ( 0.) O1¢ #41.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
B YSGEN 00000004 ( 4.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR' EX RD WRT NOVEC BYTE 
STACFN_DATA_RW 00001058 ( 4184.) 03 ¢( 3.) NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC BYTE 
STACFN_DATA_RO QOOOOOSF ¢ 95.) 04 ¢( 4.) NOPIC USR CON REL LCL NOSH EXE RD NOWRT NOVEC BYTE 
STACFN_TBLPTR 00000094 (¢ 148.) 05 ¢( 5.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
STACFN_TBLDAT 000000B2 (¢ 178.) 06 ¢ 6.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
STACFN_CODE 00000175 (¢ 373.) O07 ¢ 7.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
Pama wean Oa Ee Se ee > 
! Performance indicators : 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.09 00:00:00.45 
Command processing 108 00:00:00.72 00:00: +f -63 
Pass 275 00:00:08.01 00:00:18.11 
Symbol table sort 0 00:006:01.02 00:00:01.87 
Pass 82 00:00:01.69 00:00:03.63 
Symbol table output 16 00:00:00.12 00:00:00.22 
Psect synopsis output 3 sb SG SE BF + 88 «Re 
Cross-reference output ? 00:00: 9-98 0:00:00.00 
Assembler run totals 51 00:00:11.7 00:00:26.97 


Yee working set Limit was 1350 pages. 

42571 bytes (84 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 684 non-local and ia local symbols. 
355 source Lines were read in Pass 1, producing 32 object records in Pass 2. 

26 pages of virtual memory were used to define 24 macros. 
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! Macro Library statistics ! 


temmnannrenwrarre seer ne eam ana a + 


Macros defined 


Macro Library name 


.$255$DUA28 : (BOOTS .OBJJBOOTS .MLB; 1 
.8255$0UA28:(SYS.OBJJLIB.MLB; 1 

$255SDUA28: (SYSLIBISTARLET.MLB;2 1 
TOTALS (all Libraries) 20 


786 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
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AX/VMS Macro v04-00 
BOOTS. SRCJSTANDCONF .MAR; 1 


MACRO/LIS=L1S$:STANDCONF /OBJ=OBJ$:STANDCONF MSRC$:STANDCONF /UPDATE=(ENHS: STANDCONF ) +EXECML$/LIB+L18$:B00TS.MLB/LIB 
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